(math-check-known-matrixp): Make sure expression is a symbol before

checking that it is bound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f20cbefd89201c2e39bc4fdaa1ba13c42f47cf9..e1166bbd2e59c5380891de4e9a6dce996cd43fa0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-13  Jay Belanger  <belanger@truman.edu>
+
+       * calc/calc-arith.el:  (math-check-known-matrixp): Make sure
+       expression is a symbol before checking that it is bound.
+
 2006-02-13  Richard M. Stallman  <rms@gnu.org>
 
        * mouse.el (mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index 2372b0ebbfb7d48d69251c713bb167787109a62e..a5f25e2464e510d572d4972333463e14e1d647d2 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -362,6 +362,7 @@
             ((memq 'matrix (nth 1 decl))
              t)
             ((and (eq (car a) 'var)
+                  (symbolp (nth 2 a))
                   (boundp (nth 2 a))
                   (setq val (symbol-value (nth 2 a))))
              (math-check-known-matrixp val))